home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2005 Utilities / CHIP Utilities 2005.7z / CHIP Utilities 2005.iso / images / freesco.igz / freesco.img / router / wwa / cgi / adm.cgi < prev    next >
Encoding:
Text File  |  2003-06-20  |  9.5 KB  |  309 lines
  1. #!/bin/sh
  2.  
  3. . /etc/system.cfg
  4. . /etc/live.cfg
  5. . /etc/chat.pwd
  6.  
  7. PATH=/boot/bin:/bin:/sbin:/usr/bin:/usr/sbin:/etc:/tmp:/rc:/mnt/bootdev/router/pkg/rc:/mnt/bootdev/router/rc:.
  8.  
  9. Q="$QUERY_STRING"
  10. E="echo"
  11.  
  12. $E "Content-type: text/html"
  13. $E "Expires: Thu, 1 Oct 1990 19:32:44 GMT"
  14. $E
  15.  
  16. [ "$REMOTE_USER" = admin ] || exit
  17.  
  18. tbl()    {
  19.     $E "<tr>"
  20.     for i in "$1" "$2" "$3" "$4"; do $E "<td><font face=courier>$i</td>";done
  21.     $E "</tr>"
  22. }
  23. form()    {
  24.     usr.cgi cpage "$3<form method=POST action=adm.cgi?$2 target=main><font face=system color=#00FFFF>$1 <input type=text name=line size=25 style='font-family: Courier'> <input type=submit value=Submit> <input type=reset value=Clear></form>"
  25. }
  26. message()    {
  27. C="$1 is not running or is disabled"
  28.  
  29. }
  30. outpt()    {
  31. cpage "<pre>${C}</pre>"
  32. } 
  33. get()    {
  34.     read C;C=`$E $C| sed 's/line=//;s///'`
  35. }
  36. aban()    {
  37.     get
  38.     C=`$E $C | sed 's.%2F.\/.;s/%2C/,/'`
  39.     if [ "$1" = un ]; then
  40.         cat /etc/banlist.cfg | sed -n /$C/!P >/etc/banlist.new
  41.         if [ -s /etc/banlist.new ]; then 
  42.             mv /etc/banlist.new /etc/banlist.cfg
  43.         else
  44.             cpage "Bad argument"; exit
  45.         fi
  46.     else
  47.         $E "$C" >> //etc/banlist.cfg
  48.     fi
  49.     cpage "`/rc/rc_masq restart`<br>Address $C has been $1banned"
  50.     cp /etc/banlist.cfg /mnt/bootdev/router/etc/
  51. }
  52. S() {
  53.     C="`$E "$C" | sed "s.%$1.$2.g;s.%$3.$4.g;s.%$5.$6.g;s.%$7.$8.g"`"
  54. }
  55. cpage() {
  56.     usr.cgi cpage "$*"
  57. }
  58. ttl()    {
  59.     usr.cgi ttl
  60. }
  61. end()    {
  62.     usr.cgi end
  63. }
  64.  
  65. case "$Q" in
  66.  
  67.     dyndns)    fork dyndns 
  68.     cpage "Request has been made";;
  69.     dynforce)    fork dyndns -f 
  70.     cpage "Request has been made";;
  71.  
  72.     listu)    ttl
  73.         $E "</pre><center><br><table border=1 cellspacing=0 cellpadding=3>"
  74.         tbl User Password "Time/Action" Shell
  75.         for i in `cat /etc/passwd | sed s/\ /~/g`; do
  76.             set -- `$E $i| sed 's/:/\ /g;s/*/@/'`
  77.             P=xxxxxx; [ "$2" = @ ] && P=disabled
  78.             tbl $1 $P $5 $7
  79.         done
  80.         $E "</table>"
  81.         end;;
  82.  
  83.     del)    get
  84.         if [ "$C" = root ]; then
  85.             cpage "Protected user '$C'"
  86.             exit
  87.         fi
  88.         cat /etc/passwd | sed /^$C/d >/etc/NEW
  89.         mv /etc/NEW /etc/passwd
  90.         cp /etc/passwd /mnt/bootdev/router/etc
  91.         sync;sync
  92.         cpage "User '$C' has been deleted";;
  93.  
  94.     wlst)    ttl
  95.         $E "</pre><center><br><table border=1 cellspacing=0 cellpadding=3>"
  96.         for i in `cat /wwa/cgi/.htpasswd`; do
  97.             set -- `$E $i| sed 's/:/\ /'`
  98.             $E "<tr><td>$1</td></tr>"
  99.         done
  100.         $E "</table>"
  101.         end;;
  102.  
  103.     tpass)    cpage "</center><blockquote><blockquote><form method=POST action=adm.cgi?npass target=main>Add or change modem access password for <font face=system color=#00FFFFF>USER <input type=text name=user size=8 style='font-family: Courier'><br>PASSWORD <input type=password name=pass1 size=20 style='font-family: Courier'><br>PASSWORD <input type=password name=pass2 size=20 style='font-family: Courier'><br>Allowed TIME <input type=text name=time size=9 style='font-family: Courier' value='0000-2400'>   <input type=submit value=Submit> <input type=reset value=Clear></form></blockquote></blockquote>";;
  104.     
  105.     npass)    read A
  106.         eval `$E "$A" | sed 's/&/;/g;s///'`
  107.         if [ "$user" -a "$user" != root ]; then
  108.             if [ "$pass1" = "$pass2" ]; then
  109.                 if [ "`cat /etc/passwd | sed -n /^$user:/P`" ]; then
  110.                     cat >/tmp/tmp <<-!
  111.                     $pass1
  112.                     $pass2
  113.                     !
  114.                     cpage "</center><blockquote><blockquote><pre>`cat /tmp/tmp | passwd $user 2>/dev/null`</blockquote></blockquote></pre>"
  115.                 else
  116.                     cat >/tmp/tmp <<-!
  117.                     $user
  118.                     $time
  119.                     $pass1
  120.                     $pass2
  121.                     !
  122.                     cpage "</center><blockquote><blockquote><pre>`cat /tmp/tmp | adduser 2>/dev/null`</blockquote></blockquote></pre>"
  123.                 fi
  124.                 rm /tmp/tmp
  125.                 sync;sync
  126.                 exit
  127.             else
  128.                 A="Passwords don't match"
  129.             fi
  130.         else
  131.             A="Please enter correct user name"
  132.         fi
  133.         cpage "$A"
  134.         ;;
  135.  
  136.     fpass)    cpage "</center><blockquote><blockquote><form method=POST action=adm.cgi?cpass target=main>Add or change web access password for <font face=system color=#00FFFFF>USER <input type=text name=user size=8 style='font-family: Courier'><br>PASSWORD <input type=password name=pass1 size=20 style='font-family: Courier'><br>PASSWORD <input type=password name=pass2 size=20 style='font-family: Courier'> <input type=submit value=Submit> <input type=reset value=Clear></form></blockquote></blockquote>";;
  137.  
  138.     cpass)    read A
  139.         eval `$E "$A" | sed 's/&/;/g;s///'`
  140.         if [ "$user" ]; then
  141.             if [ "$pass1" = "$pass2" ]; then
  142.                 A=`$E "$pass1" | htpasswd /wwa/cgi/.htpasswd "$user"`
  143.             else
  144.                 A="You misspelled it. Password not changed."
  145.             fi
  146.         else
  147.             A="Please enter correct user name"
  148.         fi
  149.         cpage "$A"
  150.         sync;sync;;
  151.  
  152.     wdel)    get
  153.         if [ "$C" = admin ]; then
  154.             cpage "Protected user '$C'"
  155.             exit
  156.         fi
  157.         cat /wwa/cgi/.htpasswd | sed /^$C:/d >/wwa/cgi/NEW
  158.         mv /wwa/cgi/NEW /wwa/cgi/.htpasswd
  159.         sync;sync
  160.         cpage "User '$C' has been deleted";;
  161.  
  162.     dns*)    C=`$E $Q| sed s/dns//`
  163.         C=`/rc/rc_dns $C 2>&1`
  164.         [ "$C" ] || message DNS 
  165.         outpt;;
  166.  
  167.     dhcp*)    C=`$E $Q| sed s/dhcp//`
  168.         C=`/rc/rc_dhcpd $C 2>&1`
  169.         [ "$C" ] ||  message DHCP
  170.         outpt;;
  171.  
  172.     httpkill)
  173.         C=`/rc/rc_httpd stop 2>&1`
  174.         outpt;;
  175.     httpstop)
  176.         N="<a target=main href=adm.cgi?httpkill>Stop HTTP servers</a>"
  177.         cpage "</center><blockquote>Clicking the link below will completely dissable the web server and control panel. This is the only warning.<br>$N"
  178.         ;;
  179.     lpd*)    C=`$E $Q| sed s/lpd//`
  180.         C=`/rc/rc_lpd $C 2>&1`
  181.         [ "$C" ] || message LPD
  182.         outpt;;
  183.  
  184.     pureftp*) C=`$E $Q| sed s/pureftp//`
  185.         C=`/rc/rc_ftpd $C` # 2>&1`
  186.         [ "$C" ] || message FTP
  187.         outpt;;
  188.         
  189.     cron*)    C=`$E $Q| sed s/cron//`
  190.         C=`/rc/rc_crond $C 2>&1`
  191.         [ "$C" ] || message Cron
  192.         outpt;;
  193.         
  194.     ident*)    C=`$E $Q| sed s/ident//`
  195.         C=`/rc/rc_ident $C 2>&1`
  196.         [ "$C" ] || message Ident
  197.         outpt;;
  198.  
  199.     tlnet*)    C=`$E $Q| sed s/tlnet//`
  200.         C=`/rc/rc_tlnet $C 2>&1`
  201.         [ "$C" ] || message Telnet
  202.         outpt;;
  203.  
  204.     mdm*)    C=`$E $Q| sed s/mdm//`
  205.         C=`/rc/rc_ras $C 2>&1`
  206.         [ "$C" ] || message Dialin
  207.         outpt;;
  208.  
  209.     ring*)    set -- `$E $RINGS | sed s/,/\ /`
  210.         if [ `$E $Q | grep std` ]; then
  211.             rm -f /etc/morerings
  212.             R="Number of rings before answer has been<br>reset to standard value RINGS=$RINGS"
  213.         else
  214.             : > /etc/morerings
  215.             R="Number of rings before answer has been changed to $2"
  216.         fi
  217.         cpage "Dial-in service.<br><br>$R<br>Changes will take effect within 10 minutes."
  218.         ;;
  219.  
  220.     fwall)    C=`/rc/rc_masq restart 2>&1`
  221.         cpage "<pre>${C}</pre>";;
  222.  
  223.     sync)    if [ "$TIMADDR" ]; then
  224.             synctime 
  225.             cpage `cat /tmp/synctime.log`
  226.         else
  227.             cpage "No server has been defined"
  228.         fi        
  229.         ;;
  230.  
  231.     ban)    aban;;
  232.  
  233.     uban)    aban un;;
  234.     
  235.     blst)    cpage "</center></blockquote><blockquote><pre>-- cat /etc/banlist.cfg --<BR>`cat /etc/banlist.cfg | sed -e 's/\#.*//' -e '/^$/d'`</pre>";;
  236.  
  237.     fadd)    cpage "</center><blockquote><blockquote>Add forwarding of incoming packets <font face=system color=#00FFFFF><p><form method=POST action=adm.cgi?padd target=main>TYPE <input type=text name=type size=3 style='font-family: Courier'> [ tcp, udp ]<BR> PORT or lower range of PORTS<input type=text name=inp size=5 style='font-family: Courier'><BR>to ADDR <input type=text name=outa size=25 style='font-family: Courier'><BR>to PORT or upper Range of -PORTS<input type=text name=outp size=6 style='font-family: Courier'><BR> <input type=submit value=Submit> <input type=reset value=Clear></form>NOTE: To Forward a port range rather than a single port use a - in front of the (to) PORT like. From port 2300 to port -2400</blockquote></blockquote>";;
  238.  
  239.     fdel)    cpage "</center><blockquote><blockquote>Delete forwarding of incoming packets<font face=system color=#00FFFFF><p><form method=POST action=adm.cgi?pdel target=main>To ADDR <input type=text name=iaddr size=25 style='font-family: Courier'>  <input type=submit value=Submit> <input type=reset value=Clear></form></blockquote></blockquote>";;
  240.  
  241.     plist)    cpage "</center><blockquote><pre>-- cat /etc/portfw.cfg --<BR>`cat /etc/portfw.cfg | sed -e 's/\#.*//' -e '/^$/d'`</pre></blockquote>";;
  242.  
  243.     padd)    read A
  244.         eval `$E "$A" | sed 's/&/;/g;s///'`
  245.         $E "$type,$inp,$outp,$outa" >> /etc/portfw.cfg
  246.         cp /etc/portfw.cfg /mnt/bootdev/router/etc/
  247.         cpage "<pre>`/rc/rc_pfwd restart`</pre>"
  248.         ;;
  249.  
  250.     pdel)    read A
  251.         eval `$E "$A" | sed 's/&/;/g;s///'`
  252.         cat /etc/portfw.cfg | sed -n /$iaddr/!P >/etc/portfw.new
  253.         if [ -s /etc/portfw.new ]; then 
  254.             mv /etc/portfw.new /etc/portfw.cfg
  255.         else
  256.             cpage "Bad argument"; exit
  257.         fi
  258.         cp /etc/portfw.cfg /mnt/bootdev/router/etc/
  259.         cpage "<pre>`rc_pfwd restart`</pre>"
  260.         ;;
  261.  
  262.     poff)    ipportfw -C; ipautofw -F
  263.         cpage "Port forwarding table has been cleared.";;
  264.     prst)    cpage "<pre>`rc_pfwd restart`</pre>";;
  265.  
  266.     form*)    C=`$E $Q| sed s/form//`
  267.         case "$C" in
  268.             del) form "Delete console user" $C;;
  269.             wdel) form "Delete web user" $C;;
  270.             ban) form "Ban IP ADDR" "$C" "</center><blockquote><blockquote>Format: l,1.2.3.4/32<br>where l or e stands for local or external<br>1.2.3.4 - IP addr of banned host or network<br>/32 - netbits or netmask if banning network<br>Example: l,10.10.10.3<br>Example: e,123.123.123.123/24<br><br>";;
  271.             uban) form "Unban IP ADDR" $C;;
  272.         esac;;
  273.  
  274.     ethernet|isp.*)
  275.         ttl
  276.         $E "</pre><p align=right>FREESCO v$VERSION [$ROUTER] `date`<br><br><br><center>" 
  277.         $E "Router will switch to '$Q' mode in a few seconds<br><br>"   
  278.         end
  279.         $E "<br><pre>"
  280.         export LOGNAME=admin@$REMOTE_ADDR
  281.         MODE=`$E $Q | sed s/isp.//`
  282.         if [ "$MODE" = ethernet ]; then
  283.             mode $MODE &
  284.         else
  285.             mode dialup $MODE &
  286.         fi        
  287.  
  288.         ;;
  289.  
  290.     reboot) cpage "Rebooting router"
  291.         reboot;;
  292.  
  293.     shell)    ttl; get
  294.         if [ ! "$C" ]; then end; exit; fi
  295.         C="`$E "$C" | sed s/+/\ /g`"
  296.         S 3A ":" 3B ";" 3C "<" 3D "="
  297.         S 3E ">" 3F "?" 21 "!" 23 "#"
  298.         S 24 "$" 25 "%" 26 "\&" 27 "'"
  299.         S 28 "(" 29 ")" 2B "+" 2C ","
  300.         S 2F "/" 5B "[" 5D "]" 5E "^"
  301.         S 7B "{" 7C "|" 7D "}" 7E "~"
  302.         C=`$E "$C"| sed 's.%5C.\\.g;s.%22.".g;s.%60.`.g'`
  303.         logger -p auth.info -t "" "[admin@$REMOTE_ADDR] issued: $C"
  304.         $E
  305.         eval $C | sed "s/</\<\;/g;s/>/\>\;/g"
  306.         $E
  307.         end;;
  308. esac
  309.